home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / test6 < prev   
Encoding:
Text File  |  1997-02-21  |  562 b   |  46 lines
  1. #LAPLACE 2
  2. #STARTLINE
  3. a=0; b=0;
  4. #RESULT
  5. DF(CX(NB(1,0,1),NB(1,0,1)),0,a,0)
  6. #RESULT
  7. DF(CX(NB(1,0,1),NB(1,0,1)),0,b,0)
  8. #ENDLINE
  9. #STARTLINE
  10. while ( TRUE) {
  11.   a += 1;
  12.   b += 1;
  13.   if ( a > 10 ) break();
  14. }
  15. #ENDLINE
  16. #STARTLINE
  17. a
  18. #RESULT
  19. CX(NB(1,11,1),NB(1,0,1))
  20. #ENDLINE
  21. #STARTLINE
  22. b=0
  23. #RESULT
  24. DF(CX(NB(1,0,1),NB(1,0,1)),0,b,0)
  25. #ENDLINE
  26. #STARTLINE
  27. for ( a = 0 , a < 10 , a += 1 ) {
  28.   b += 1;
  29.   if ( a > 4 ) break();
  30. }
  31. #ENDLINE
  32. #STARTLINE
  33. b
  34. #RESULT
  35. CX(NB(1,50,1),NB(1,0,1))
  36. #ENDLINE
  37. #STARTLINE
  38. a
  39. #RESULT
  40. CX(NB(1,10,1),NB(1,0,1))
  41. #ENDLINE
  42. #STARTLINE
  43.  
  44. #ENDLINE
  45. #ENDPROJECT
  46.